[shotkill]

все равно не выходит

Код:

 procedure TMainForm.Load;
var
  fileName,prob,putk: string;
begin
   FileName:='C:\Documents and Settings\ADMIN\Рабочий стол\Test\sample2.stx';
      Data.Load( fileName ); // Получаем данные
      LoadData; // Загружаем данные в форму
      prob:= sedit1.Text;
      putk:='''';
      putk:= prob+ putk;
      putk:= putk+'''';
      sedit2.Text := putk;
    end;

[color=red] Bargest: [/code] не забываем про теги оформления кода!
в конце выводит только " и все а содержание переменной нет ((