Проверка имени в текстовом файле

[vitamin.rulez]

Здорово всем!
помогите исправить этот код так чтобы прошла проверка имени, если есть то выводит сообщение, а если нету то создаёт запись.
Я не знаю как исправить цикл
условие выполняетя столько раз сколько записей в текстовике

var:
ST:TStringlist;
UName,Pass,Slog,level:string;
i: Integer;
begin
ST:=TStringList.Create;
try
ST.LoadFromFile(ExtractFilePath(App lication.ExeName)+'logins.txt');
except
end;
for i:=0 to ST.Count-1 do
begin
UName:=Copy(ST[i],1,Pos('^',ST[i])-1);
if edit1.Text=uname then
showmessage('Запись с таким именем уже существует!')
else
begin
ST:=TStringList.Create;
try
ST.LoadFromFile(ExtractFilePath(App lication.ExeName)+'logins.txt');
except
end;
ST.Add(edit1.Text+'^'+MaskEdit1.Tex t+'%'+'1'+'@'+'1');
try
ST.SaveToFile(ExtractFilePath(Appli cation.ExeName)+'logins.txt');
except
end;
ST.Free;
showmessage('Запись создана!');
end
end;

[KORN]

var
  i: integer;
  ST:TStrings;
begin
  ST:=TStringList.Create;
  if pos(edit1.text, st.text) then
  showmessage('Запись с таким именем уже существует!')
  else
  st.add(edit1.text);
  ST.SaveToFile(ExtractFilePath(Application.ExeName) +'logins.txt');
  ST.Free;
  showmessage('Запись создана!');
end;

а если так7