Основные компоненты

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
image1.top:=image1.top-5;
end;
 
procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
image1.Left:=image1.Left+5;
end;
 
procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
image1.top:=image1.top+5;
end;
 
procedure TForm3.SpeedButton4Click(Sender: TObject);
begin
image1.Left:=image1.Left-5;
end;
 
procedure TForm3.SpeedButton5Click(Sender: TObject);
begin
image1.Height:=image1.Height+5;
end;
 
procedure TForm3.SpeedButton6Click(Sender: TObject);
begin
image1.Height:=image1.Height-5;
end;

var
  Form4: TForm4;
  x, y, z : real; // Переменные для калькулятора
  kod : char; // Знак операции в калькуляторе
 
implementation
 
//КНОПКА С
procedure TForm4.Button11Click(Sender: TObject);
begin
//x:=0;
z:=0;
y:=0;
edit1.Clear; // Очистить поле edit1
end;
 
//КНОПКА -
procedure TForm4.Button12Click(Sender: TObject);
begin
if edit1.Text<>'' then // Кнопка сработает только в случае, если поле edit1 не пустое
x:= strtofloat(edit1.text);
kod := '-';
edit1.Clear; // Очистить поле edit1
end;
 
//КНОПКА *
procedure TForm4.Button13Click(Sender: TObject);
begin
if edit1.Text<>'' then // Кнопка сработает только в случае, если поле edit1 не пустое
x:= strtofloat(edit1.text);
kod := '*';
edit1.Clear; // Очистить поле edit1
end;
 
//КНОПКА +
procedure TForm4.Button14Click(Sender: TObject);
begin
if edit1.Text<>'' then // Кнопка сработает только в случае, если поле edit1 не пустое
x:= strtofloat(edit1.text);
kod := '+';
edit1.Clear; // Очистить поле edit1
end;
 
//КНОПКА /
procedure TForm4.Button15Click(Sender: TObject);
begin
if edit1.Text<>'' then // Кнопка сработает только в случае, если поле edit1 не пустое
x:= strtofloat(edit1.text);
kod := '/';
edit1.Clear; // Очистить поле edit1
end;
 
//КНОПКА ,
procedure TForm4.Button16Click(Sender: TObject);
begin
if edit1.Text<>'' then // Кнопка сработает только в случае, если поле edit1
edit1.Text:=edit1.Text+',';
end;
 
//КНОПКА +/-
procedure TForm4.Button17Click(Sender: TObject);
begin
if edit1.Text<>'' then // Кнопка сработает только в случае, если поле edit1 не пустое
edit1.Text:='-'+edit1.Text;
x:= strtofloat(edit1.text);
end;
 
//КНОПКА =
procedure TForm4.Button18Click(Sender: TObject);
begin
if edit1.Text<>'' then // Кнопка сработает только в случае, если поле edit1 не пустое
 y:=strtofloat(edit1.text);
  case kod of
 '+': begin z:=x+y; x:=0; end;
 '-': begin z:=x-y; x:=0; end;
 '*': begin z:=x*y; x:=0; end;
 '/': if y=0 then begin showmessage('Нельзя делить на 0!'); x:=0; end
             else begin z:=x/y; x:=0; end;
 end ;
 edit1.Text:=floattostr(z);
end;