ааааааа

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;


Так работает СПС!