1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.Button2Click(Sender: TObject);
var S: String;
    Stelle: Integer;
    Start: Integer;
    I: Integer;
    Stop: Integer;
begin
/// Suche im Memo den String "300px-"
Stelle := Pos('300px-', Memo1.Text);

/// Gehe von dort rückwärts bis zum Anfang des Memos...
For I := Stelle DownTo 0 Do
/// bis die ersten " gefunden werden...
If Memo1.Text[I] = '"'
Then Begin
     /// und lege dann den Beginn für den zu kopierenden Textes fest
     Start := I+1;
     Break;
     End;

/// Gehe von Beginn an zum Ende des Memos...
For I := Start To Length(Memo1.Text) Do
/// bis die ersten " gefunden werden...
If Memo1.Text[I] = '"'
Then Begin
     /// und lege dann das Ende des zu kopierenden Textes fest
     Stop := I;
     Break;
     End;

/// Kopiere den String, der sich zwischen START und ENDE befindet und zeige ihn im Label
S := Copy(Memo1.Text, Start, (Stop-Start));
Label1.Caption := S;
end;                    

1:

To Memo1.Lines.Count                    

1:

To Length(Memo1.Text)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
begin
/// Stream erzeugen
Quellstream := TStringList.Create;
Try
/// Stream füllen
Quellstream.Text := IdHTTP1.Get(Edit1.Text);
MEINE ARBEIT MIT DEM STREAM
Finally
/// Stream freigeben
Quellstream.Free;
End;
end;                    

1:
2:
3:
4:
5:

try
VersucheIrgendwas;
finally
HatFuntkioniertAlsoIrgendwasAnderesMachen;
end;                    

1:
2:
3:
4:
5:

try
VersucheIrgendwas;
except
HatNichtFunktioniertAlsoFehlerAbfangen;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

try
begin
[...]
end;
finally
begin
[...]
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

ImgStream := TMemoryStream.Create;
Try
 Begin
 IdHTTP1.Get(Label1.Caption, ImgStream);
 ImgStream.Position := 0;
 JvImage1.Picture.Graphic.LoadFromStream(ImgStream);
 End;
Finally;
ImgStream.Free;
End;                    

1:
2:
3:
4:
5:

try
// kein begin/end erforderlich!
finally
// kein begin/end erforderlich!
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

If Art = 'jpg'
Then Begin
     Try
     ImgStream := TMemoryStream.Create;
     IdHTTP1.Get(Label1.Caption, ImgStream);
     ImgStream.Position := 0;
     JPGBild := TJPEGImage.Create;
     JPGBild.LoadFromStream(ImgStream);
     JvImage1.Picture.Assign(JPGBild);
     Finally
     JPGBild.Free;
     ImgStream.Free;
     End;
     End;

If Art = 'png'
Then Begin
     Try
     ImgStream := TMemoryStream.Create;
     IdHTTP1.Get(Label1.Caption, ImgStream);
     ImgStream.Position := 0;
     PNGBild := TPNGImage.Create;
     PNGBild.LoadFromStream(ImgStream);
     JvImage1.Picture.Assign(PNGBild);
     Finally
     PNGBild.Free;
     ImgStream.Free;
     End;
     End;                    

1:
2:

var JPGBild: TJPEGImage;
            PNGBild: TPNGImage;                    

1:
2:

initialization
RegisterClasses([TIcon, TMetafile, TBitmap, TJPEGImage,TPngImage]);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TForm1.Button2Click(Sender: TObject);
var ImgStream: TMemoryStream;
    Art: String;
    JPGBild: TJPEGImage;
    PNGBild: TPNGImage; -> hier beschwert sich das Programm (Undefinierter Bezeichner: TPNGImage)
begin
Diverse Aktionen, die für den Fehler irrelevant sind

/// Bestimme die Dateiendung des Bildes (URL steht in Label1.Caption)
Art := Copy(Label1.Caption, J, 3);

/// Wenn es ein JPG ist, lade es...
If Art = 'jpg'
Then Begin
     Try
     ImgStream := TMemoryStream.Create;
     IdHTTP1.Get(Label1.Caption, ImgStream);
     ImgStream.Position := 0;
     JPGBild := TJPEGImage.Create;
     JPGBild.LoadFromStream(ImgStream);
     JvImage1.Picture.Assign(JPGBild);
     Finally
     JPGBild.Free;
     ImgStream.Free;
     End;
     End;

/// Wenn es ein PNG ist, lade es...
If Art = 'png'
Then Begin
     Try
     ImgStream := TMemoryStream.Create;
     IdHTTP1.Get(Label1.Caption, ImgStream);
     ImgStream.Position := 0;
     PNGBild := TPNGImage.Create;
     PNGBild.LoadFromStream(ImgStream);
     JvImage1.Picture.Assign(PNGBild);
     Finally
     PNGBild.Free;
     ImgStream.Free;
     End;
     End;                    

1:
2:
3:
4:
5:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, ShellApi, ExtCtrls, JPEG, JvImage, JvExExtCtrls, PNGImage,
  PNGExtra;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button2Click(Sender: TObject);
var ImgStream: TMemoryStream;
    JPGBild: TJPEGImage;
    PNGBild: TPNGObject;
begin
     Try
     ImgStream := TMemoryStream.Create;
     IdHTTP1.Get(/// URL des Bildes, ImgStream);
     ImgStream.Position := 0;
     JPGBild := TJPEGImage.Create;
     JPGBild.LoadFromStream(ImgStream);
     Image1.Picture.Assign(JPGBild);
     Finally
     JPGBild.Free;
     ImgStream.Free;
     End;
     End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button2Click(Sender: TObject);
var ImgStream: TMemoryStream;
    JPGBild: TJPEGImage;
    PNGBild: TPNGObject;
begin
     Try
     ImgStream := TMemoryStream.Create;
     IdHTTP1.Get(/// URL des Bildes, ImgStream);
     ImgStream.Position := 0;
     PNGBild := TPNGObject.Create;
     PNGBild.LoadFromStream(ImgStream);
     JvImage1.Picture.Assign(PNGBild);
     Finally
     PNGBild.Free;
     ImgStream.Free;
     End;