Serge_Bliznykov
if OpenDialog1.execute then begin
uploaded := tstringlist.Create;
uploaded.LoadFromFile(OpenDialog1.FileName);
for a:=uploaded.Count-1 downto 0 do
if pos('+', uploaded[a])=0 then uploaded.delete(a);
uploaded.SaveToFile('1.txt');
uploaded.Free;
showmessage ('GOOD');
end;