Nebenfenster zum Hauptfenster machen?

[mlspider]

Ich habe jetzt folgendes in der Projektdatei zu stehen:

Delphi-Quellcode:

program Streamjoiner;

uses
  Forms,
  IniFiles,
  StdCtrls,
  ExtCtrls,
  Variants,
  SysUtils,
  PlayerUnit in 'PlayerUnit.pas' {Player},
  VisualUnit in 'VisualUnit.pas' {Visual},
  TracklistUnit in 'TracklistUnit.pas' {Tracklist},
  EQUnit in 'EQUnit.pas' {EQ},
  AboutUnit in 'AboutUnit.pas' {About},
  StartUnit in 'StartUnit.pas' {Start},
  IntroUnit in 'IntroUnit.pas' {Intro};

function vergleicheStringsN(s1, s2:string; n:Word): Boolean;

 var i: Word;
  function delLZ(s: string): string;
  var ss: string;
      i, j: Word;
  begin
   j:=0; ss:='';
   for i:=1 to Length(s) do
   begin
    if (s[i] <> ' ') and (s[i] <> '-') then
    begin
     Inc(j);
     ss:= ss + s[i]
    end;
    if j=n then Break
   end;
   Result := UpperCase(ss)
  end;

  begin
   if delLZ(s1)=delLZ(s2) then Result:=True else Result:=False;
  end;
  var flag:word;

{$R *.res}

begin
  Application.Initialize;
  if vergleicheStringsN(Intro.Label1.Caption, Intro.Label2.Caption, 50)=False then begin
  Application.CreateForm(TIntro, Intro);
  Application.CreateForm(TStart, Start);
  end else begin
  Application.CreateForm(TStart, Start);
  Application.CreateForm(TIntro, Intro);
  end;
  Application.Run;
end.

Leider gibt es nur eine Fehlermeldung.

[Christian Seehase]

Moin Mario,

Zitat:

Zitat von mlspider

Leider gibt es nur eine Fehlermeldung.

und wir sollen jetzt raten welche? ;-)

[mlspider]

Ich habe die Meldung mal beigefügt. Ich kann damit leider nichts anfangen.

[Tormentor32]

Erscheint mir logisch, denn du vergleichst zwei Strings, die sich in der Form INTRO befinden, und danach erstellst du die Form erst...