Hay varias formas de hacerlo:
Código:
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!