unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var i,a,b:integer;
    x,y:real;
function summe(x,y:real):real;
  begin
  summe:=x+y;
  end;

function potenz(a,b:integer):integer;
  var z:integer;
  begin
  z:=a;
  for i:=1 to b-1 do
  z:=z*a;
  potenz:=z;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToFloat(edit1.Text);
y:=StrToFloat(edit2.text);
edit3.Text:=FloatToStr(summe(x,y));

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
a:=StrToInt(edit1.Text);
b:=StrToInt(edit2.text);
edit3.text:=IntToStr(potenz(a,b));
end;
end.