procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var temp_string : string;
    hossz : integer;
begin
  if Key=#8 then
    begin
      temp_string:=Search.Text;
      hossz:=length(temp_string);
      delete(temp_string,hossz,2);
      Search.Text:=temp_string;
    end;
  if not (Key in [#8]) then Search.Text:=Search.Text+Key;
end;