Operaciones en delphi

[[Gunman]]

Mmmm, que versión de windows tenéis?
PD: alapaco, habrás puesto cada parte del código en dos botones separados, no? Yo no me había dado cuenta al principio y tenia el código en un mismo botón, el código ha de ser así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
unValor = -3.4;
var
fValor : real;
begin
fValor := Abs( unValor );
Panel1.Caption := IntToStr( Trunc(fValor*10) );
end;

procedure TForm1.Button2Click(Sender: TObject);
const
unValor = -3.4;
var
fValor : real;
begin
fValor := Abs( unValor*10 );
Panel1.Caption := IntToStr( Trunc(fValor) );
end;