показ 2й формы убивает текст в ричэдит

[HellMercenariess]

Если показать форму или свернуть её, это убивает весь текст в РичЭдите

procedure TForm1.ScFurHeuteClick(Sender: TObject);
begin
  Fortschritt.Show;
end;

форма пустая

unit FTRForm;
interface

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

type
  TFortschritt = class(TForm)
    Label1: TLabel;
    Neues: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fortschritt: TFortschritt;

implementation

{$R *.dfm}
end.

[Аватар]

А ричэдит где? Ребус?

[doktor255]

Видимо на первой форме. А вот почему вторая форма убивает текст на контролле первой формы, реальный ребус. И сдаётся мне, что решение ребуса лежит в коде первой формы, который нам естественно не предоставили.

[HellMercenariess]

Только-что выпилил форму из проэкта потому что критует она, если запускать кликом по меню, то еще открывается а критует чуть позже если свернуть, а из другого места сразу крит форма нерисуется, так вместо неё другую назначил такую же пустую:

unit Unit3;
interface

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

type
  TNeueWords = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NeueWords: TNeueWords;

implementation

{$R *.dfm}

procedure TNeueWords.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TNeueWords.FormCreate(Sender: TObject);
begin
Caption:='щоб розуміти текст,вам потрібно вивчити ці слова '
end;

end.

она тож критует если свернуть

вот еще другое место откуда выполнялся показ формы, а также заполнение её элементов, но здесь все закомментировано и очень давно, потому что не работало все по-плану

//Показати форму 3, по досягненню 35 нових сл1в
 ScFurHeute.Caption:='Neue worten: '+IntToStr(WFH);
  if WFH=13 then
    begin
//  Fortschritt.Show;
//    Fortschritt.Neues.Lines.Assign(NeueWorten);
 {Worten.Lines.SaveToFile(MeinFile);}
 Timer1.Enabled:=False;
 Planic:=True;

может ли ошибка быть связана с тем что на основной форме расположен BrowserWeb?

[doktor255]

критует

Где такой термин выдрал? Сам придумал?

BrowserWeb

Может всё же WebBrowser? Не то, чтобы я придираюсь, но все же я придираюсь.
Если проект не большой, скинь, гляну ошибку, потому что твоё описание взрывает мозг.

[Stilet]

может ли ошибка быть связана с тем что на основной форме расположен BrowserWeb?

Архив с проектом в студию, однозначно.