Buchstabe aus einer Zeile auslesen

[Spike2k3]

hey..in gewisser Weise klappts
hier is ma Quelltext soweit:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Memo2: TMemo;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  DateiName,s : string;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
DateiName:=Edit1.Text;  //Die Datei mit dem Code wird eingegeben
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.lines.loadfromfile(DateiName); //Der Inhalt der txt wird eingelesen
S:=Memo1.Lines.text; //und wird mit S gleichgesetzt
S := Copy(S, 2, 5);  //die Zahlen 2-5 werden ausgewählt
Memo1.text:= S;      // und im Memo 1 angezeigt

end;



end.

Soweit sogut, doch möchte ich das aus der ersten Zeile nur die 4. Zahl und dann aus der zweiten Zeile die 3. Zahl ausgewählt wird..und die dann hintereinander, zb. als AB oder 43 oder so angezeigt werden (im Memo)...