[Drozh]

А если несколько то можно сделать так:

Код:

var
 Pos1, Pos2: Integer;
 A: String; // твоя строка
 Res: TStrings; // результаты
begin
 Res := TStringList.Create; // инициализаруем

 A := 'kahrtnviutnb=aie"bltnba=tbart"babntabn=rjjb"ddg';

// находим позиции
 Pos1 := Pos('=', A);
 Pos2 := Pos('"', A);

// пока чтото не нашли выполняем...
 while (Pos1 <> 0) or (Pos2 <> 0) do
 begin
  Res.Add(Copy(A, Pos1-2, Pos2-Pos1+3)); // отрезаем нужный нам кусок и загоняем в результат)))
  Delete(A, 1, Pos2); // удалям то что объискали
  Pos1 := Pos('=', A); // пренаходим позиции
  Pos2 := Pos('"', A);
 end;

 Memo1.Lines := Res; // выводи результат

 Res.Free; // особождаем память
end;