KeyPress tabulator

http://www.swissdelphicenter.ch/torry/showcode.php?id=591

... og så køre det sammen med noget lignende dette:

procedure TfrmMain.MemoKeyPress(Sender: TObject; var Key: Char);
var
  lgd, l1, l2 : integer;
begin
  if ord(Key) = VK_TAB then
  begin
    with Sender as TMemo do
    begin
      lgd := length(Text);
      l1 := SelStart;
      while (l1 < lgd) and (Text[l1] <> #32) do
        inc(l1);
      if Text[l1] = #32 then
      begin
        inc(l1);
//        l2 := l1;
//        while (l2 < lgd) and (Text[l2] <> #32) do
//          inc(l2);
        SelStart := l1;
//        SelLength := l2 - l1;
      end;
    end;
    Key := #0;
  end;
end;