как осуществить такую логику

[Impuls1989]

А стоит ли мучаться со сборными условиями?
Делайте так:

Procedure DelSpace(var s:string)
begin
while (pos(' ',s)=1) do
 delete(s,1,1);
end;
DelSpace(s);
Flag:=false;
 if (pos('password=',s)=1) then
  begin
    pass:=copy(s,pos('password=',s)+length('password='),length(s)-length('password='));
  end else
  if ((pos('username=',s)=1)) then
   begin
     name:=copy(s,pos('username=',s)+length('username='),length(s)-length('username='));
   end else
   if (pos('http:/',s)=1) then
    begin
     i:=0;
      repeat 
       inc(i);
         if s[i]= ' ' then
           begin
            j:=i;
            flag:=true;
              while (i<>length(s)) do
               begin
                inc(i);
                 if ord(s[i])>32 then //Если встретилось что-то кроме пробела 
                   begin
                      i:= length(s);
                      flag:=false;
                   end;
               end;
           end;
     until i=length(s);
  if flag then 
   begin
     URL:=copy(s,1,length(s)-j);
   end;
 end;

Коряво конечноже, но должно работать.

[мимо]

решил использовать TRegExpr, но не могу вставить вместо Pos'а
помогите!

     Temp:= TStringList.Create();
  try
    for Index:= 0 to FList.Count - 1 do
      if (Pos('яблоко', FList[Index]) <> 0) and (Temp.IndexOf(FList[Index]) = -1)
then Temp.Add(FList[Index]);
    try
      begin
Temp.SaveToFile('фрукты.txt');

чтобы фуекционал остался таким же.

[Longedok]

Сообщение от мимо

...решил использовать TRegExpr, но не могу вставить вместо Pos'а
помогите!
чтобы фуекционал остался таким же.

Немного не понял вопроса. Что конкретно тебе нужно сделать? Определить в какой позиции в тексте встречается слово "яблоко"?

[мимо]

определять, где в тексте, в каких строках, встречается только слово 'яблоко':
'яблоко'
ваываыва'яблоко'
'яблоко'ваыаыв
добавлять эти строки в список и тут же сохранять файл

[Longedok]

Не очень, опять же, понятно, зачем в таком случае использовать регэкспы, но вобще, можно поступить следующим образом:

...
regex.Expression := 'яблоко';
try
    for Index := 0 to FList.Count - 1 do
    begin
       regex.exec(fList[index]);
       if regex.Match[0] <> '' then
          Temp.Add(FList[Index]);
    end;
...
try
begin
   Temp.SaveToFile('фрукты.txt');
...

P.S.
если надо чтобы в строке было только слово "яблоко", то следует использовать следующий шаблон:

regex.Expression := '^яблоко$';

[мимо]

хм, пишет, что:
Variable 'regex' might not have been initialized.
в var поставил, что еще ему надо?

[Longedok]

Сообщение от мимо

хм, пишет, что:
Variable 'regex' might not have been initialized.
в var поставил, что еще ему надо?

Ему ещё надо:

regex := TRegExpr.create();

[мимо]

спасибо. тока заглянул в комментарии примеров по TRegExpr

[мимо]

а подскажи еще.
какой синтаксис если ищешь сразу несколько слов?
в примерах по TRegExpr не нашел

[Longedok]

Сообщение от мимо

какой синтаксис если ищешь сразу несколько слов?

regex.Expression = "Первое слово дороже второго";