كيف أنسخ آخر ثلاث أحرف من نص ما في edit

[hanipino]

طريقة اخرى مختلفة .

PHP كود :

Function Ch3ar1(S:String):String;
var
 Le,i:Longword;
begin
 Le:=Length(Trim(S))+1;
 S:=Trim(S);
  for i := 0 to 2 do
    begin
     Result:=Result+S[le-3];
     Inc(le);
    end;
end; 


PHP كود :

Caption:= Ch3ar1(edt1.Text);