brug en memo som synedit?

Der er flere ting der er galt med dit eksempel:

begin

// Brug Memo1.Lines.Text i stedet og få hele teksten ud i een streng
for i := 0 to memo1.Lines.Count - 1 do begin

  // lowercase her i stedet for at gøre det to gange nedenfor. Desuden kalder du    // Memo1.Lines uden indeks Lines[i]
  kode := memo1.Lines;

  // Gem pos i en variabel i stedet for at pos'e to gange for hver token
  if Pos('<title>', lowercase(kode)) > 0 then begin
    // Ikke nødv. hvis du bare læser een streng som foreslået ovenfor
    start.X := Pos('<title>', lowercase(kode))+7;
    start.Y := i+1;
  end;
  if Pos('</title>', Lowercase(kode)) > 0 then
    begin
    stop.X := Pos('</title>', lowercase(kode));
    stop.Y := i+1;
  end;
end;
  result := memo1.SelText; // Tjaa, ikke kønt...
end;

Nedenstående virker. Bemærk at jeg bruger konstanter i stedet for at skrive <title> to gange og risikere at jeg staver forkert. Desuden lægger jeg ikke bare 7 til p1, men tager længden af startsegmentet. En meget mere sikker og effektiv funktion er resultatet.
const
  StartTitle = '<title>';
  StopTitle = '</title>';

function TForm1.FindTitle : string;
var
  lgd, p1,p2 : integer;
  Kode : string;
begin
  result := ''; lgd := length(StartTitle);
  Kode := lowercase(memo1.Lines.Text);
  p1 := Pos(StartTitle,Kode);
  p2 := Pos(StopTitle,Kode);
  if (p1 > 0) and (p2 > p1) then
    result := copy(memo1.Lines.Text,p1+lgd,p2-p1-lgd);
end;

hehe der var mange fejl

det virker, TAK

Der var enkelte fejl, men det jeg slog ned på var, at koden var ineffektiv.

Her var det ret udtalt idet du havde 4 kald til "pos" hvor kun det halve var nødvendigt. Det samme gjalt den CPU-tunge LowerCase som blev kørt to gange.