[ecfisa]

Hola camivy, bienvenida.

Supongo que debe ser algun tipo de ejercitación que te han dado ya que lo ortodoxo
sería tener almacenados los nombres y apellidos en relación a su dirección de email.

Pero si el algorítmo sólamente debe generar automáticamente emails
acorde a el requisito: primera_letra_nombre + apellido+ '@gmail.com' , podrías hacer:

function NombreEmail(const Nombre: string): string;
begin
  Result:= LowerCase(Nombre);           // por si está en mayúsc.
  Delete(Result, 2, Pos(' ',Result)-1); // borra 2do hasta espacio inc.
  Result:= Result + '@gmail.com';       // agrega '@gmail.com'
end;

Saludos.