...
if Edit1.Text = '' then
begin
Edit1.SetFocus;
raise EInvalidArgument.Create('No ha rellenado el nombre del usuario.';
end;
if Edit2.Text = '' then
begin
Edit2.SetFocus;
raise EInvalidArgument.Create('No ha rellenado el password para el usuario.');
end;
...