Перестановка местами крайних 4-х велечин

[Wizard_Adeptus]

Помогите пожалуйста решить задачу. Нужно сделать программу в Delphi, которая умеет:
1. Запись данных списка в текстовый файл;
2. Чтение данных из текстового файла;
3. Перестановка местами крайних 4-х величин.
Учусь на заочке. Толком ничего не объяснили, провели 4 лекции и в бой. Буду очень признателен, если кто-нибудь мне поможет.
Первые два пункта сделал, к третему даже не знаю как подступить.
Вот моя "заготовка" :

unit Kontr_Wiz;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
SaveDialog1: TSaveDialog;
Button2: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
If SaveDialog1.Execute then
Memo1.Lines.SaveToFile (SaveDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If OpenDialog1.Execute Then Memo1.Lines.LoadFromFile(OpenDialog 1.FileName);
end;

end.

Что делаль дальше?

[Virtson]

может быть, предполагается консольное приложение,
открываем Reset() ...

там цифры ч/з пробел.
их надо переставляь, а по какому условию - так я не понял .

[Wizard_Adeptus]

Мне бы для начала понять, что за величины. Это только цифры? Может под словом величина иметься ввиду любое значение? Если только цифры, то возможно мне нужно поменять компонент memo на что-нибудь другое?

По какому условию? Я думаю, нужно создать кнопку, по которой кликаешь - и четыре крайних величины меняются местами.

[ClauZzz]

Выложи содержимой твоего файла

[AVer]

ИМХО Лучший компонент-список - ListBox. Там даже процедура вроде есть для перестановки строк.

[Wizard_Adeptus]

Я уточнил, что нужно делать. Оказывается нужно, чтобы 4 нижних значения менялись с четырьмя верхними местами, в компоненте ListBox. А вот как это сделать я не знаю.

[zetrix]

procedure TForm1.Button1Click(Sender: TObject);
var temp:string;
    i:integer;
begin
for i:=0 to 3 do
 begin
 temp:=listbox1.Items.Strings[i];
 listbox1.Items.Strings[i]:=listbox1.Items.Strings[listbox1.Items.Count-i-1];
 listbox1.Items.Strings[listbox1.Items.Count-i-1]:=temp;
 end;
end;

[Wizard_Adeptus]

Спасибо большое, все работает.