Como extrair o primeiro nome de uma pessoa?

{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;