help plz

procedure TForm1.cmdresultatClick(Sender: TObject);
var placering, deltagare:real;
    resultat : string;
    n : integer;
 begin
     for n := 1 to 10 do
     begin
     placering:=strtofloat(txtplacering.text);
     deltagare:=strtofloat(txtdeltagare.text);
     resultat:=floattostr(100*exp(-3*(placering-1)/deltagare));
     lblresultat.caption:=resultat;
     end;
     end;

I need the for loop to work correctly so that ten different "resultat" will be shown in the same label.