Si no quieres trabajar con ShowModal por alguna razón extraña, siempre puedes crearte tus propios eventos:
Código Delphi
[-]
TElegido = procedure (Cliente:String; Codigo:Integer) of object;
Tform1 = ....
public
Elegido :TElegido
end;
procedure TForm1.boton1Click;
begin
if assigned(elegido) then Elegido (edit1.text, spinEdit1.AsInteger);
end;
ahora en Tform2 (el que llamará a Form1)
Tform2 = ...
private
procedure ElElegido(Cliente:String; Codigo:Integer);
procedure form2Create(..)
begin
form2 := Tform2.Create(application);
form2.Elegido := ElElegido end;
procedure Tform2.ElElegido(Cliente:String; Codigo:Integer);
begin
ShowMessage(cliente);
end;
saludos