Te voy a dar una idea, aunque creo que tendrás que desarrollarla un poco más:
Código:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if pos(',',edit1.text) = 0 then
Try
Edit1.Text:=FormatFloat(',0.00',StrToInt(Edit1.Text) / 100);
except
end;
end;
Un Saludo.