unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    EdtEing: TEdit;
    LblDNA1: TLabel;
    LblmRNA1: TLabel;
    LblDNA2: TLabel;
    LblmRNA2: TLabel;
    LblDNA3: TLabel;
    LblmRNA3: TLabel;
    LblDNA4: TLabel;
    LblmRNA4: TLabel;
    LblDNA5: TLabel;
    LblmRNA5: TLabel;
    LblDNA6: TLabel;
    LblmRNA6: TLabel;
    Button1: TButton;
    procedure Panel1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure schreiben(var ZeilenIndex:integer;ausgstrDNA, ausgstrmRNA : string);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation
uses Unit1;

{$R *.dfm}

procedure TForm4.Panel1Click(Sender: TObject);
begin
    Panel1.Caption:= 'AAAAAAAAAAAAAAAAA';
    Panel1.caption := Unit1.Unserstruct[1].dna;
end;



procedure schreiben(var ZeilenIndex:integer;ausgstrDNA, ausgstrmRNA : string);
//var
//scha:string;
begin
case ZeilenIndex of
  0:
    LblDNA1.caption := LblDNA1.Caption + ausgstrDNA;
    LblmRNA1.Caption := LblmRNA1.Caption + ausgstrmRNA;
  1:
    LblDNA2.Caption := LblDNA2.Caption + ausgstrDNA;
    LblmRNA2.Caption := LblmRNA3.Caption + ausgstrmRNA;
  2:
    LblDNA3.Caption := '';
    LblmRNA3.Caption := '';
  3:
    LblDNA4.Caption := '';
    LblmRNA4.Caption := '';
  4:
    LblDNA5.Caption := '';
    LblmRNA5.Caption := '';
  5:
    LblDNA6.Caption := '';
    LblmRNA6.Caption := '';
  else
      errormsg();
end;
end;