تبدیل 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;

یا حق !!!