Como extrair o primeiro nome de uma pessoa no Delphi

Para pegar o primeiro nome de uma pessoa, crie a seguinte função:

function PrimeiroNome (Nome : String) : String;
var
PNome : String;
begin
PNome := ”;
if pos (‘ ‘, Nome) <> 0 then
PNome := copy (Nome, 1, pos (‘ ‘, Nome) – 1);
Result := PNome;
end;