رونوشت متن فارسی به کلیپ برد

[mbshareat]

سلام
من یه کد دارم که اگه متن کلیپ برد فارسی باشه اون رو درست به دلفی 7 بر می گردونه
من کد بر عکسش رو هم میخوام.
میخوام ی فارسی رو به ي عربی تبدیل کنم و به کلیپ برد بر گردونم و الصاق کنم.
کسی کدش رو داره؟
این کد دریافت متن فارسی از کلیپ برد(به نظرم از همین سایت گرفتم)
function GetClipText: WideString;
var
Data: THandle;
P: Pointer;
begin
Result := '';
Clipboard.Open;
Data := GetClipboardData(CF_UNICODETEXT);
if Data <> 0 then
begin
P := GlobalLock(Data);
while WideChar(P^) <> #0 do
begin
Result := Result + WideChar(P^);
integer(P) := integer(P) + 2;
end;
GlobalUnlock(Data);
end;
Clipboard.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
S:String;
begin
S:=GetClipText;
ShowMessage(S);
end;