Dos decimales en un Edit

[RoyTan]

Saludos.

Creo sinceramente que pregunto demasiado, pero no tengo más remedio.
O no me entero de cómo se busca en los foros mensajes ya escritos, o sencillamente no están las consultas que yo hago, bueno creo que soy yo el que busca mal, en fin si alguien considera que soy un poco pesado ruego me lo haga saber y pediré mil disculpas.

Gracias.

Mi problema es el siguiente:

Necesito introducir en un Edit solo números una coma y solo dos decimales no mas.

Ejemplo 12345,00

El código para introducir números y cambiar el punto por la coma lo he encontrado y funciona perfecto, es este.

Código Delphi [-]
procedure TF_Cuentas.Edit1KeyPress(Sender: TObject; var Key: Char);
 Var i: Integer;
begin
   i:=0;

  if ( StrScan('0123456789.'+chr(7)+chr(8), Key) = nil ) then  Key := #0;
 // cambia el punto decimal por coma
  if key = '.' then key := ',';
  //controlar entrada una sola coma
  for i := 1 to length(Edit1.Text) do
    if ( copy(Edit1.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then  Key := #0;

end;

Solo falta que después de la coma solo se introduzca dos decimales.

¿Es esto que pido posible?

Gracias.