Deklaration von Proceduren

[baumina]

Dann halt nochmal ausführlich:

Delphi-Quellcode:

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, slstbox, CurvyControls, Winsock, AdvGlassButton, ColListb;

type
  TfrmMainForm = class(TForm)
    EdNickname: TCurvyEdit;
    Label1: TLabel;
    ListBox1: TListBox;
    BtnAusführen: TAdvGlassButton;
    procedure BtnAusführenClick(Sender: TObject);
  private   // <----
      procedure test;
  end;

Delphi-Quellcode:

implementation

procedure TfrmMainForm.test; // <---
var
ta,Test : string;
begin
Ta := EdNickname.Text;
Test := ListBox1.Items[ListBox1.ItemIndex];
if Test = Ta then begin
   frmClient.Show;
end;
end;