[delphi.com.ar]

Código Delphi [-]
var
  s: string;
  c: Char;
begin
  s := 'Texto';
  c := s[1]; {Obtiene el primer caracter de la cadena}
end;

Saludos!