Program Delphi Untuk Nama

procedure TNama.Button1Click(Sender: TObject);
var
  Nama,NIM,Departemen,hasil:string;
begin
  Nama:=Edit1.Text;
  NIM:=Edit2.Text;
  Departemen:=Edit3.Text;
  Edit4.Text:='Namaku '+Nama+' NIM '+NIM+' Departemen '+Departemen;



                end;
procedure TNama.Button2Click(Sender: TObject);
var
  Nama:string;
begin
  Nama:=Edit5.Text;
  edit6.Text:=Nama;


end;

procedure TNama.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-100 then
 label1.Left := 700;
end;

procedure TNama.Button4Click(Sender: TObject);
begin
MainMenu.Show;
Nama.Hide;

end;

procedure TNama.Button3Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
edit4.Text:=' ';
edit5.Text:=' ';
edit6.Text:=' ';
end;

end.