ctrl+v / shift+insert

[islu]

Una vez tuve que hacer algo por el estilo, prueba con esto :

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if( (Shift = [ssCtrl] ) or (Shift = [ssShift] ) ) then
Edit1.ReadOnly := true
else
Edit1.ReadOnly := false ;
end;

Supongo que deberás controlar también el click derecho del ratón, el pegar, no?

Un saludo.