aproximar numero hasta dos decimales

[Letty]

Hola de nuevo:
Tengo el siguiente problema:
Yo hago lo siguiente al pulsar un botón:

procedure TForm1.Button1Click(Sender: TObject);
var
numero : real;
st : string;

begin

st:= ednumero.Text;
st:= FormatFloat('#,##.00',strtofloat(st));
ShowMessage(st); //aquí muestra el mensaje perfectamente,todo muy bien
numero:= StrToFloat(st);

Y justo en el paso de string a float me da un error diciendo que ese no es un valor float [project project1.exe raised exception class eConvertError with message “1.000,00’ is not a valid floating point value’.Proccess stopped], yo no lo entiendo. A ver si me podéis ayudar por favor porque es algo rarísimo.
Gracias de antemano.