Yo utilizo StringReplace:
Código Delphi
[-]procedure TfrBuscaFacturas.edImporteExit(Sender: TObject);
begin
Try
nCant:=StrToFloat(edImporte.text);
sCant:=StringReplace(EdImporte.Text,',','.',[rfReplaceAll]);
except
ShowMessage('Cantidad incorrecta.');
edImporte.text:='0';
edImporte.SetFocus;
end;
end;
Un Saludo.