[AND_REY]

Создаём две формы в первой пишем:

Код:

uses
 Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Left:= 10;
 Form2.Top:= 17;
 if Form2.Visible Then Form2.Hide Else Form2.Show;
end;