1. 개발/실행 플랫폼 
  (1) OS : Windows 10
  (2) 개발툴 : Delphi 7
  (3) 사용 Database : 

2. 개발 중인 프로그램 

3. 질문 내용 

Ctrl + Packspace 를 눌러서 발생하는 효과처럼 만들고싶어서 임시로 만들어본 코드인데
잘안되서 조언좀 얻고자 합니다.

[단어 단어 단어] 입력된 상태에서 원래대로라면 [단어 단어] 만 남아야되는데

그냥 저는 전부 클린 하는 상태로 [] 로 만들려고 해봤습니다.

그런데 전체 클리어는 되는데, 후에 '' 미음 모양의 문자가 발생해서 있습니다.

아래와 같은 함수가 없는 상태에서 [단어] 일때 Ctrl + Backspace 를 누르면 [단어] 로 되더라구요.

방법1 -----------------------------------------------------------
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if ssCtrl in Shift then
    if Key = VK_BACK then
    begin
      StatusBar1.Panels[1].Text := '문장 전체 지우기'; // LOG

      Edit1.Clear;

    end;

end;

방법2 -----------------------------------------------------------
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if ssCtrl in Shift then
  begin
    if Key = VK_BACK then
    begin
      StatusBar1.Panels[1].Text := '문장 전체 지우기'; // LOG

      SendMessage( Self.Handle, WM_CLEAR, 0,0 );

    end;
  end;

end;

procedure OnClear(var Msg: TMessage); message WM_CLEAR;
procedure OnClear(var Msg: TMessage);
var
  wKey: Word;
begin
  if ( Msg.WParam = 0 ) and ( Msg.LParam = 0 ) then
  begin
    Edit1.SelectAll;

    wKey := VK_BACK;
    Edit1KeyDown(Self, wKey, []);
  end;
end;