[lmikle]

Ну пусть будет так:

Код:

function GetValues : TStringList;
var
  x, v : Double;
begin
  Result := TStringList.Create;
  x := -1;
  While x < 1 Do
    Begin
      v := sin(2*x);
      Reslutl.Items.Add(Format('x=%.4f, sin(2x)=%.4f',[x,v]));
      x := x + 0.25;
    End;
end;

Результат можно показать через сообщеие

Код:

ShowMessage(GetValues.Items.Text);

или поместить в, например, Memo:

Код:

Memo1.Lines.Assign(GetValues);