procedure TForm1.btnProsesClick(Sender: TObject);
var a,i,b:integer;
begin
a:=strtoint(Edit1.Text);
Memo1.Clear;
i:=1;
while i<=a do
begin
b:=i;
Memo1.Lines.Add(inttostr(b));
i:=i+1;
end;
end;

procedure TForm1.btnKeluarClick(Sender: TObject);
begin
Halt;
end;
end.