نحوه انتخاب اولین کارکتر یک رشته و کپی آن

[mahlamahla]

بسم الله الرحمن الرحیم


من یک Edit دار م که داخل آن رشته ای به طول نامشخص وارد می شود . می خواهم اولین کارکتر آنرا انتخاب کنم و آنرا در یک Edit دیگر کپی کنم.

متشکرم

[BORHAN TEC]

var
S: String;
begin
S:= 'Hello Delphi';
Edit1.Text := Copy(S, 1, 1);
end;

[Felony]

!!!

Edit1.Text:= Edit2.Text[1];