Ich sehe auch kein problem, evtl noch einen richtigen Antwortsatz, aber sonst sollte es doch gehen. SIngle ist vielleicht etwas unglücklich gewählt:
Delphi-Quellcode:
var
Form1: TForm1;
ergebnis, zahl1: real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
zahl1 := StrToFloat(Edit1.text);
ergebnis := zahl1 * 13/100 ;
//evtl noch runden:
ergebnis := round(ergebnis * 100) / 100;
Label2.Caption := FloatToStr(zahl1) + ' PS sind ' + FloatToStr(ergebnis) + ' kW';
end;