[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Label1.Caption:=Edit1.Text;
  Form2.Label2.Caption:=Edit2.Text;
  Form2.Label3.Caption:=Edit3.Text;
  Form2.Label4.Caption:=Edit4.Text;
  Form2.Label5.Caption:=Edit5.Text;
  Form2.ShowModal;
end;