из label в textfille

[winwirus]

помогите пожалуйста записать значение label label1.caption:=label1.Caption+chr( msg.wparam); в textfile. буду рад любой помощи

[megostudent]

Var
Data: TStrings;
begin
  label1.Caption:='asda sdas dasddasd';
 Data := TStringList.Create;
 Data.LoadFromFile('1.txt');
 Data.Append(Label1.Caption);
 Data.SaveToFile('1.txt');
 Data.free;
end;

[JUDAS]

уточнение
if FileExists('1.txt') then Data.LoadFromFile('1.txt');

[megostudent]

Сообщение от JUDAS

уточнение
if FileExists('1.txt') then Data.LoadFromFile('1.txt');

код проверял, рабочий

[JUDAS]

код проверял, рабочий

попробуйте удалить файл 1.txt и запустить код

[megostudent]

ну эт понятно))