Excel Dateien einfügen

[NeedName]

hallo zusammen...
ich habe eine frage an euch...

und zwar mach ich gerade ein praktikum als fachinformatiker in richtung anwendungsentwicklung und habe ein problem beim programmieren...

ich soll eine excel datei per einfügenButton einfügen...
bin aber als anfänger so ziemlich überfragt...
kann mir jemand hierbei helfen???

hier das was ich bisher gemeistert habe
__________________________________________________ __________________________________________________ _______________________________

Delphi-Quellcode:

unit streams;

interface

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

type
  TForm1 = class(TForm)
    Laden: TButton;
    LbxText: TListBox;
    odgdialoge: TOpenDialog;
    procedure LadenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit4ABFRAGE;

{$R *.dfm}

procedure TForm1.LadenClick(Sender: TObject);
var
   msLaden : TMemoryStream;
   ssText : TStringStream;
   i : Integer;
   slText: TStringList;
   strPfad : String;
begin
   if odgdialoge.execute then begin
      strPfad := odgdialoge.FileName;
      Application.CreateForm(TForm4, Form4);
      if Form4.ShowModal <> mrOk then begin
         exit;
      end;
   end else begin
      exit;
   end;
   msLaden := TMemoryStream.Create;
   ssText := TStringStream.Create('');
   slText := TStringList.Create;
   try
      msLaden.LoadFromFile(strPfad);
      msLaden.SaveToStream(ssText);
      slText.Text := ssText.DataString;
      if Form4.intAuswahl = 0 then begin
         lbxText.Items.Text := lbxText.Items.Text + ssText.DataString;
      end else begin
         lbxText.Items.Text := ssText.DataString;
      end;
      for i := 0 to slText.Count - 1 do begin
         ShowMessage(slText[i]);
      end;
   finally
      if Assigned(msLaden) then FreeAndNil(msLaden);
      if Assigned(ssText) then FreeAndNil(ssText);
      if Assigned(slText) then FreeAndNil(slText);
   end;

end;

end.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]