cambiar font en un edit

[Investment]

Para que no puedan moverse con el raton por ese edit prueba esto:

procedure TFormPrincipal.Edit1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
SetCursorPos(0,0); //Pone el cursor arriba a la izquierda
end;

Para que no entren en el campo pon el edit con TabStop=False