procedure TForm1.Button5Click(Sender: TObject);
var  SL: TStringList;
begin
b:= FindWindow (nil,'Form1');
If b <> 0 then
SendMessage(FindWindow(nil,'Form1'),WM_Close,0,0);
 Sl:=TStringList.Create;
 if FileExists('bad.txt') then SL.LoadFromFile('bad.txt');
 SL.Add(PChar('' + memo1.Lines[0] + ''));
 SL.SaveToFile('bad.txt');
 SL.Free;
memo2.lines.loadfromfile('bad.txt')

else
 Sl:=TStringList.Create;
 if FileExists('good.txt') then SL.LoadFromFile('good.txt');
 SL.Add(PChar('' + memo1.Lines[0] + ''));
 SL.SaveToFile('good.txt');
 SL.Free;
end;