Converter Char em String ????

var a: Char;
    b: String;
begin
    a := ´A´;
    b := a;
    ShowMessage(b);
end;