Miner in Delphi / Pascal

Hello dears! Does anyone have the source code of the miner in Delphi or Pascal. If there is, then share please) in Advance thank you.