Delphi - Primer y último caracter de una cadena

Hola

Como se obtiene el último caracter de una cadena , lo que quiero hacer un for empezando por el primer caracter de una cadena cogiendo cada vez uno más y en el momento que el primero de la derecha sea un espacio parar.

Gracias

Piensa que una cadena es una matriz de caracteres es decir cadena[1] es el primer caracter y cadena[length.cadena] es el ultimo.
Suerte

Recorriendo caracter a caracter

procedure TForm1.Button1Click(Sender: TObject);
var
sCadena, sCaracter, sPrimeraPalabra : string;
i : integer;
begin
sCadena := 'Gómez Vázquez Antonio';
for i := 1 to Length(sCadena) do
begin
sCaracter := Copy(sCadena,i,1);
sPrimeraPalabra := sPrimeraPalabra + sCaracter;
if sCaracter = ' ' then
begin
ShowMessage('La primera palabra es: ' + sPrimeraPalabra);
exit
end;
end;
end;

Lo mismo pero sin recorrer nada

procedure TForm1.Button1Click(Sender: TObject);
var
sCadena, sPrimeraPalabra : string;
iPosicion : integer;
begin
sCadena := 'Gómez Vázquez Antonio';
iPosicion := Pos(' ',sCadena);
sPrimeraPalabra := Copy(sCadena,1,iPosicion);
ShowMessage('La primera palabra es: ' + sPrimeraPalabra);
end;