Delphi - TlabeledEdit y TdbGrid

Tengo un problema, por default cuando abro un formulario le asigno a un TlabeledEdit un texto que es el prefijo de una clave, el problema es que cuando hago un Setfocus a dicho componente el cursor me aparece al principio del componente, y necesito que el cursos aparezca al final del texto que esta "fijo".

Otra pregunta, como puede hacer para que no se pueda copiar el texto que aparece en cualquier celda de un Dbgrid sin tener que deshabilitarlo.

Gracias

Roberto Garcia

//Procedimiento para que el cursor aparezca al final del texto que esta "fijo".
procedure TForm1.Button1Click(Sender: TObject);
var
x : integer;
begin
x := Length(Edit1.Text);
Edit1.SetFocus;
Edit1.SelStart := x;
end;

//Procedimiento para no copiar en un dbGrid
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = VK_CONTROL) then
begin
ShowMessage('Imposible copiar');
Abort;
Key := 0;
end;
end;

NOTA: Para impedir que se ejecute el popupmenu que trae por default el grid (copiar, pegar, etc) crea un popupmenu vacío y enlázalo al dbgrid, al dar clic derecho no pasará nada.

Muchas Gracias