отследить удерживание клавиши

[fanlis]

Приветствую! Кто мне подскажет, как можно в мемо отследить удерживание клавиши? Я в мемо в начало строки вывожу символ ">", который нельзя удалять. Я отслеживаю нажатие кнопок клавиатуры влево, backspace, home, нажатие мыши. Например при нажатии backspace я отслеживаю положение курсора и не даю ему попасть левее символа ">". В общем должно быть разрешено делать все что можно в мемо (вводить символы, удалять, выделять), но только в последней строке, не заходя при этом за первый символ ">".
Но загвоздка в том, что если нажать backspace и удерживать, он всеравно уходит влево, все удаляет и даже переходит на другие строки выше.

procedure TForm1.sMemoLogKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_UP: begin
      Key:=0;
    end;

    VK_DOWN: begin
      Key:=0;
    end;

    VK_HOME: begin
    //если shift+Home, то выделяем
      if Shift=[ssShift] then
      begin
        sMemoLog.SelLength:=-CurPos.X+1;
      end
    //иначе просто в начало
      else
      begin
        CurPos.X:=1;
        sMemoLog.CaretPos:=CurPos;
      end;
      Key:=0;
    end;

    VK_LEFT: begin
      if Shift=[ssShift] then
      begin
        if sMemoLog.SelLength<-CurPos.X+1 then
        begin
          sMemoLog.SelLength:=-CurPos.X+1;
          Key:=0;
        end;
      end
      else if CurPos.X<=1 then Key:=0;
    end;
  end;//case
end;

procedure TForm1.sMemoLogKeyPress(Sender: TObject; var Key: Char);
var
  i,k: integer;
  s,s1: string;
begin
  case Key of
  //если нажали Enter
    Chr(VK_RETURN): begin
      if (sMemoLog.Lines.Count=0) or (sMemoLog.Lines[sMemoLog.Lines.Count-1]<>'>') then
        sMemoLog.Lines.Add('>');
      Key:=#0;
    end;

    Chr(VK_BACK): if CurPos.X<=1 then Key:=#0;
  end;//case
end;

Код не полный, я отслеживаю нажатие и других кнопок, но это не относится к конкретной теме.

[newerow1989]

Функция GetKeyState поможет.

var
  Form1: TForm1;
  k:TKeyboardState;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
   Label1.Caption:='        0  1  2  3  4  5  6  7  8  9'+#13#10+'0)     ';
   For i:=0 to High(k) do
   begin
      Label1.Caption:=Label1.Caption+IntToStr(GetKeyState(i))+'  ';
      If i mod 10=9 then
      begin
         Label1.Caption:=Label1.Caption+#13#10+IntToStr((i div 10)+1)+')   ';
         If i<90 then
            Label1.Caption:=Label1.Caption+'  ';
      end;
   end;
end;

end.

[kropotkina-alice]

Сообщение от fanlis

Но загвоздка в том, что если нажать backspace и удерживать, он всеравно уходит влево, все удаляет и даже переходит на другие строки выше

Замените ваше изобретение

Chr(VK_BACK): if CurPos.X<=1 then Key:=#0;

на

Chr(VK_BACK): if Memo1.CaretPos.X=1 then Key:=Chr(0);

[fanlis]

newerow1989, не совсем понял что это и как связано с моей проблемой.

kropotkina-alice, все оказалось проще, чем казалось. Спасибо!