第一個Delphi小程序

第一次應工做需呀，接觸這個語言，今晚在本身的電腦搭建好環境，寫的第一個超簡單的Delphi小程序！

var
  temp:Integer;

//求個位數
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  temp := StrToInt(Edit1.Text);
  Label1.Caption := IntToStr(temp Mod 10);
end;

//十位數
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  temp := StrToInt(Edit1.Text);
  Label2.Caption := IntToStr(temp Mod 100 Div 10);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  temp := StrToInt(Edit1.Text);
  Label3.Caption := IntToStr(temp Mod 1000 Div 100);
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  temp := StrToInt(Edit1.Text);
  Label4.Caption := IntToStr(temp Mod 10000 Div 1000);
end;