программа держится на экране сикунду и пропадает

[:=)]

после использывания цикла repeat программа перестала работать запускается и сразу же сама закрывается. Я удалил уже этот цикл взял в коментарий весь код программы (оставил только то что делфи создает сам при начале работы). Не помогает. Подскажите кто знает в чем причина, а то я над прогой три дня сидел, обидно есле так не заработает. Про то, что надо сохроняться знаю, но проблема в том, что я сохранил программу перед компиляцией и сохранение теперь тоже не работает. Спасайте.

[DelhiProgramer]

А код можно посмотреть

[Utkin]

Попробуйте создать пустой проект и весь код перенести туда (через буфер обмена).

[:=)]

извиняюсь за ошибку в заголовке

код к сожелению скинуть не могу т.к сижу в инете через телефон, а он с компом не синхронизируетса.

[DelhiProgramer]

Оконная программа с минимумом кода в трёх файлах.
Файл проекта
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Файл модуля 1
unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.
Файл DFM - ваша форма
object Form1: TForm1
Left = 192
Top = 140
Width = 870
Height = 500
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end
Вот и всё это должно работать, а остальное закомментить {}

[:=)]

не удалил все лишнее. Теперь в окне там где program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1,
Form1);
Application.Run;
end. Выбивает ошибку и подсвечивает begin

[Пепел Феникса]

какую ошибку?

[DelhiProgramer]

Если ошибка не входит в основной блок программы, то проблема с юниотм 1