[Delphi] Zamiana na Char

Mam coś takiego:
nazwa,kod: string;
kod:= copy(nazwa,1,1);
Jak teraz zamienić kod na Char ?

Skoro kopiujesz tylko pierwszy znak to:

var
Nazwa: String;
Kod: Char;
begin
Kod:=Char(Nazwa[1]);
end;

Dzięki