Extraer el primer caracter de un string

[delphi.com.ar]

Hay varias formas de hacerlo:

var
  Text: string;
begin
  Text := 'Hola';
  {Por Caracter (Habría que evaluar que la cadena no este vacía)}
  Result := Text[1];
  {Con Copy}
  Result := Copy(Text, 1, 1);
  {Con LeftStr - Sólo válido de Delphi 6 en adelante}
  Result := LeftStr(Text, 1)
  ...

Saludos!