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

[hanipino]

هل توجد طريقة اخرى ولكن مختصرة .

لا اعتقد انه توجد طريقة اصغر من طريقة تستعمل Copy

اعتقد ان اخى عبدالله زعرور يريد استخراج امتداد ملف ما مصاره يكون فى Edit
هذه طريقة لذالك .

PHP كود :

Function Cha3r(S:PWideChar):TStringList;
 begin
  Result:= TStringList.Create;
     ExtractStrings(['.'],
                    [' '],
                    S,
                    Result);
  Result.CommaText:=Trim(Result[Result.Count-1]);
 end; 


PHP كود :

Caption := Cha3r(PWideChar(Edt1.Text)).Text;
            Cha3r(PWideChar(Edt1.Text)).Free;