procedure TForm1.Button5Click(Sender: TObject);
var  SL: TStringList;
begin
b:= FindWindow (nil,'Form1');
If b <> 0 then
begin
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')
end;

else
begin
 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;
end;