تبدیل string به char چطور؟

[mehdi_moosavi]

سلام
چطور میشه یک string یک کاراکتری رو داخل یک char ریخت؟

while Pos('-', S) > 0 do S[Pos('-', S)] := Onvan(8,E.Text);

کد زیر پیغام خطا میده!
لطفا راهنمایی کنید

[Hamid_PaK]

ساده است دوست عزیز


procedure TForm1.FormCreate(Sender: TObject);
var
a:Char;
begin
a := caption[1];
Caption := a;
end;


یا حق !!!