Esto parece funcionar:
Código Delphi
[-]
procedure TForm1.Memo1Enter(Sender: TObject);
begin
ActiveControl := nil;
end;
Por otra parte, con un StaticText puedes obtener algo muy parecido al memo (BevelKind = bkTile, BevelInner= bvLowerer, BevelOuter = bvLowered) y no toma el foco.
// Saludos