Delphi - como asigno un string de largo 1 a una var. char

tengo un string de largo 1 y quiero asignarla a una varible tipo char
y si fuera de largo mayor que 1? se puede asignar un caracter a una variable char??

var
Ch: char;
Str: string;
begin
Ch:= Str[1]; // Primer caracter de Str;
Ch:= Str[2]; // Segundo
Ch:= Str[Lenght(Str]); // Último carácter
end;