[Winny]

1)Кидаешь на форму два таймера, один называешь Timer1, а другой Timer2, и кидаешь один Label. У Timer1 ставишь Interval на 500, а у Timer2 ставишь Interval на 1000. И вот код для Timer1:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style+[fsBold];
Timer1.Enabled:=false;
Timer2.Enabled:=true;
end;

Вот код для Timer2:

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style-[fsBold];
Timer1.Enabled:=true;
Timer2.Enabled:=false;
end;

end.

2)Ты имеешь ввиду сохранение текста? Если да то кидай на форму SaveDialog и Memo. Вот код для сохранения текста Memo:

Код:

if not SaveDialog1.Execute then
Exit
else
Memo1.Lines.SaveToFile(SaveDialog.FileName);

А вот код для сохранения текста Edit'а, кинь на форму SaveDialog и Edit:

Код:

var
S:TStringList;
begin
S:=TStringList.Create;
S.Text:=Edit1.Text;
if not SaveDialog1.Execute then
Exit
else
S.SaveToFile(SaveDialog1.FileName);
S.Free

3)Создай в корневой папке программы файл RunCount.txt. В нём напиши цифру "0" в первой строке. И кинь на форму один Label. На событие формы OnCreate пиши:

Код:

var
RunCount:Integer;
RunCountFile:TStringList;
begin
RunCountFile:=TStringList.Create;
try
if not FileExists('RunCount.txt') then begin
ShowMessage('В корневой папке программы не найден файл RunCount.txt, пожалуйста создайте его!')
RunCountFile.Free;
else
RunCountFile.LoadFromFile('RunCount.txt');
RunCount:=StrToInt(RunCountFile.Strings[0]);
RunCount:=RunCount+1;
Label1.Caption:=IntToStr(RunCount);
RunCountFile.Strings[0]:=IntToStr(RunCount);
RunCountFile.SaveToFile('RunCount.txt');
RunCountFile.Free;
except
end;

4)На событие OnCreate формы пиши:

Код:

var
F:TStringList;
begin
F:=TStringList.Create;
try
F.LoadFromFile('C:\text.txt');
F.Clear;
F.SaveToFile('C:\text.txt')
F.Free;
except
end;

Надеюсь ответ полный? Надеюсь на твой отзыв.