mostrar form segun boton pulsado

[jsc]

hola,
me estoy volviendo loco y no consigo resultado. a ver si podeis ayudarme

tengo un "panel" que utilizo en plan menu con varios botones "clientes" "facturas"... en una form (form1)

cuando pulso un boton, abre su correspondiente form dentro del form1 (el form1 actua como ventana padre)
a su vez, dimensiono la form para que se muestre correctamente en el form1

la cuestion es que estoy intentando hacer, un procedimiento comun que sirva para el evento onclick de cada boton; asi, el codigo para redimensionar la form que hay que abrir, asignar el "parent"... tendria que ponerlo solo una vez

intento esto:

procedure abreform (sender :tobject)
var form : string ;
 begin
   form := (sender as tbutton).caption ;
   application.createform ((form as tform),form) ;
   (form as tform).show ;
   (form as tform).parent := form1 ;
   (form as tform).top := form1.top-....
end;

procedure form1.clientes.onclick (sender :tobject)
begin
   abreform (sender) ;
end;

procedure form1.facturas.onclick (sender :tobjec)
begin
   abreform (sender) ;
end;

e intento evitar tener que "duplicar" para cada boton

procedure form1.clientes.onclick (sender :tobject)
begin
   application.createform(tformclientes,formclientes);
   formclientes.show ;
   formclientes.parent :=  form1 ;
   formclientes.top:= ...
end;

procedure form1.facturas.onclick (sender :tobject)
begin
   application.createform(tformfacturas,formfacturas);
   formfacturas.show ;
   formfacturas.parent :=  form1 ;
   formfacturas.top:= ...
end;

es posible hacer algo de esto?
gracias por la ayuda

[jsc]

he llegado a conseguir lo que quiero pero quisiera todavia reducir más código
a ver si podeis ayudarme

adjunto un ejemplo tonto para ver lo que quiero conseguir (delphi 7)

pulsando el boton 1 se muestra form2
pulsando el boton 2 se muestra form3

se podria reducir el codigo

   if (sender as TButton).caption = 'Button1' then form := TForm2.Create (Form2) ;
   if (sender as TButton).caption = 'Button2' then form := Tform3.Create (Form3) ;
   if (sender as TButton).caption = 'Button3' then form := Tform4.Create (Form4) ;

de manera que

form:=TForm2.Create(Form2)

valdria para todos los forms?
algo asi:

 form := ('T'+variable).Create(variable)

donde "variable" seria por ejemplo el caption del boton; en este caso, form2, form3,form4

podria hacerse algo ó lo máximo que puede reducirse es como en el ejemplo que he puesto?

gracias de antemano