Delphi-Quellcode:
unit Unit3;
interface
uses
Forms;
procedure ausrichten(f1,f2: TForm);
implementation
procedure ausrichten(f1,f2:TForm);
begin
f2.Left:=f1.Left+f1.width+5;
f2.Top:=f1.Top+5;
end;
In der Unit1 und Unit2 dann die Unit3 einbinden.
Benutzen kannst Du die Routine dann so:
ausrichten(Form1,Form2);
Grüße
Klaus