Coding Pangkat (Delphi)

procedure TForm4.Button10Click(Sender: TObject);
begin
a:= strtofloat (edit2.Text);
b:= strtofloat (edit3.text);
c:= exp(b*ln(a));
edit4.Text:= floattostr (c);
end;