// Wenn man ein Memo auf ReadOnly setzt, kann man trotzdem darin noch Text
// markieren. Um das zu verhindern, hilft ein Trick, bei welchem man das Memo
// nicht auf ReadOnly setzen muss:

// Getestet mit D4 unter WinME

var readonly:TPanel;

procedure TForm1.FormCreate(Sender: TObject);
begin
readonly:=TPanel.create(self);
readonly.setbounds(memo1.left,memo1.top,memo1.width,memo1.height);
readonly.parent:=self;
readonly.bevelouter:=bvnone;
memo1.left:=0;
memo1.top:=0;
memo1.parent:=readonly;
readonly.enabled:=false;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
readonly.free;
end;

// Mit einem Button kann man dann das Ganze umschalten:

procedure TForm1.Button1Click(Sender: TObject);
begin
readonly.enabled:=not readonly.enabled;
end;