[Alegun]

Проверка типа

Код:

if Length(Memo.Text) <> 0 then...

?

...запретить именно вставлять скопированный текст...

Код:

uses ClipBrd;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ((Key = ord('V')) and (ssCtrl in Shift)) then begin
   if Clipboard.HasFormat(CF_TEXT) then
     ClipBoard.Clear;
   Memo1.SelText := 'Нельзя копипастить!';
   key := 0;
end;
end;