ENTER como TAB em campo MEMO

 Utilizando ENTER como TAB em campo MEMO

// No evento OnKeyPress:

var

   Linha : String;

begin

   if Key = #13 then

   begin

      Linha := MEMO.Lines[MEMO.Lines.count - 1];

      if Linha = '' then

      begin

         key := #0;

         PostMessage ( handle, WM_KEYDOWN, VK_TAB, 1 );

      end;

   end;