Проверка нажатия клавиш в компоненте Мемо|Delphi

[GAGARIN-NEW]

Здравствуйте все !
Я делаю чат и в качестве поля ввода сообщения использую Мемо.
У меня такой вапрос по нажантию Enter должно выполнится какое либо действие в событии мемо1keypress я проверяю if key = #13 then (тут мои действия...)

Но проблема в том что при таком раскладе я не могу написать в мемо несколько строк тк при нажатии ентер происходит моё событие и мемо очищяется...

Мне нужно чтобы при нажатии Shift + Enter производился переход курсора ввода на следующую строчку и только при нажатии Enter происходило моё действие ...

Я понимаю код должен быть таким
if (key = #13) and (Shift не нажат !) then (тут мои действия...)

Всем спасибо ! надуюсь вы поняли что я хотел и сможете мне памочь...

[Карась]

А если сделать переход на новую строку - Ентер, а отправка сообщения (судя по всему) двойное нажатие Ентер.
Удобней... имхо.

[GAGARIN-NEW]

Сообщение от Карась

А если сделать переход на новую строку - Ентер, а отправка сообщения (судя по всему) двойное нажатие Ентер.
Удобней... имхо.

неа двойнор энтэр - извращение ... мнебы как в асе 6 ... тоесть так как я написал ...

[AlDelta]

Определить нажат ли Shift:

function ShiftDown : Boolean;
var
ShiftPress : TKeyboardState;
begin
GetKeyboardState(ShiftPress);
Result := ((ShiftPress[vk_Shift] and 128) <> 0);
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
Begin
if (ShiftDown)and (key=#13) then
Begin
   //Твои действия (нажат Shift и Enter)
end;
end;

[GAGARIN-NEW]

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

Определить нажат ли Shift:

function ShiftDown : Boolean;
var
ShiftPress : TKeyboardState;
begin
GetKeyboardState(ShiftPress);
Result := ((ShiftPress[vk_Shift] and 128) <> 0);
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
Begin
if (ShiftDown = false)and (key=#13) then //так???
Begin
   //Твои действия (нажат Shift и Enter)
end;
end;

Большое спасибо AlDelta а какбы сделать так чтобы действия выполнялись просто при нажатии энтер а при шифт + энтэр ничего не происходило ? тобиш чтобы мои действия выполнялись только тогда когда нажат лиш энтэр без других клавиш ...