Ich würde es so machen ...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
sl : TStringList;
Indx : Integer;
begin
sl := TStringList.Create;
sl.LoadFromFile(ExtractFilePath(Application.ExeName) + 'plzDat.txt');
//Leerzeichen vor und nach dem = entfernen
sl.Text := StringReplace(sl.Text, ' = ', '=', [rfReplaceAll]);
Indx := sl.IndexOfName(Edit1.Text);
if Indx < 0 then Exit;
Edit2.Text := sl.ValueFromIndex[Indx];
Edit3.Text := IntToStr(Indx);
sl.Free;
end;